home *** CD-ROM | disk | FTP | other *** search
/ Aminet 28 / Aminet 28 (1998)(GTI - Schatztruhe)[!][Dec 1998].iso / Aminet / comm / misc / TIMOcount.lha / TIMOcount / Source / TIMOcount.rexx
OS/2 REXX Batch file  |  1998-10-28  |  41KB  |  1,481 lines
  1. /*
  2.  
  3. $VER: TIMOcount V 1.41 - © Freddy/SOGA :  (28-Oct-1998 08:00)
  4.  
  5. */
  6.  
  7. /*
  8.  
  9. TODO:
  10.  
  11. PREFS: TONOS  - PULSOS
  12.  
  13. PREFS: precios y tiempos consultables desde panel principal
  14.  
  15. PREFS: MIAMI.default -por defecto
  16.  
  17. PREFS: PRECIOS Y MONEDAS DIFERENTES
  18.  
  19. IDIOMAS DISTINTOS
  20.  
  21. */
  22.  
  23. IF SHOW("P","TIMOCOUNT")
  24. THEN DO
  25.  say 'Programa ya ejecutado'
  26.  Address TIMOCOUNT
  27.  SHOW
  28.  EXIT
  29. end
  30.  
  31. OPTIONS FAILAT 99
  32. OPTIONS CACHE
  33. OPTIONS RESULTS
  34. SIGNAL ON BREAK_C
  35. SIGNAL ON BREAK_D
  36. SIGNAL ON BREAK_E
  37. SIGNAL ON BREAK_F
  38. SIGNAL ON HALT
  39.  
  40. lib = 'rexxsupport.library'
  41. IF ~SHOW('L',lib) THEN CALL ADDLIB(lib,100,-30)
  42.  
  43. lib = 'rexxreqtools.library'
  44. IF ~SHOW('L',lib) THEN CALL ADDLIB(lib,0,-30)
  45.  
  46. lib = 'rexxserdev.library'
  47. IF ~SHOW('L',lib) THEN CALL ADDLIB(lib,0,-30,5)
  48.  
  49. call TIME('r')
  50.  
  51. /* Configuracion por defecto */
  52.  
  53. DEFLOG = 'S:TIMOCOUNT.LOG'
  54. USALOG = 1
  55. LOGVOZ = 0
  56. DEFMOD = 'MIAMI'
  57. PRECON = ''
  58. DURCON = ''
  59. OFFCON = ''
  60. PREMAR = ''
  61. POSMAR = ''
  62. PUERTO = 'serial.device'
  63. UNIDAD = 0
  64. MAXTIM = 0
  65. PREAVI = 0
  66. PREMAX = 0
  67. DESFASE = 22
  68. MPELAS = 0
  69. PREPELAS = 0
  70.  
  71.  
  72. /* CARGA configuración */
  73.  
  74. if exists('ENV:TIMOCOUNT.prefs')
  75. then do
  76.  Call Open('tcpre','ENV:TIMOCOUNT.prefs','R')
  77.  VERSION = READLN('tcpre')
  78.  if VERSION ~= '$VER: 1.40' then DEFLOG = VERSION
  79.  IF VERSION = '$VER: 1.40' then DEFLOG = READLN('tcpre')
  80.  USALOGF = READLN('tcpre')
  81.  USALOG = USALOGF + 0
  82.  LOGVOZF = READLN('tcpre')
  83.  LOGVOZ = LOGVOZF + 0
  84.  DEFMOD = READLN('tcpre')
  85.  PRECON = READLN('tcpre')
  86.  DURCON = READLN('tcpre')
  87.  OFFCON = READLN('tcpre')
  88.  PREMAR = READLN('tcpre')
  89.  POSMAR = READLN('tcpre')
  90.  PUERTO = READLN('tcpre')
  91.  UNIDADF = READLN('tcpre')
  92.  UNIDAD = UNIDADF + 0
  93.  MAXTIMF = READLN('tcpre')
  94.  MAXTIM = MAXTIMF + 0
  95.  PREAVIF = READLN('tcpre')
  96.  PREAVI = PREAVIF + 0
  97.  PREMAXF = READLN('tcpre')
  98.  PREMAX = PREMAXF + 0
  99.  DESFASEF = READLN('tcpre')
  100.  DESFASE = DESFASEF + 0
  101.  if VERSION = '$VER: 1.40'
  102.  then do
  103.   MPELASF = READLN('tcpre')
  104.   MPELAS = MPELASF + 0
  105.   PREPELASF = READLN('tcpre')
  106.   PREPELAS = PREPELASF + 0
  107.  end
  108.  Call CLOSE('tcpre')
  109.  IF PREAVI > MAXTIM then PREAVI = MAXTIM - 15
  110.  IF MAXTIM < 16 then PREAVI = 0
  111.  IF PREPELAS > MPELAS then PREPELAS = MPELAS - 15
  112.  IF MPELAS < 16 then PREPELAS = 0
  113.  
  114. end
  115.  
  116. /* ************************* */
  117.  
  118. pav = 0
  119. paa = 0
  120. ventacer = 0
  121.  
  122.  
  123. /* Si comprendeis todo esto ya sabes mas que yo!!! ;-) */
  124.  
  125. MUIA_Timer = 0x80426435
  126. MUIM_Notify = 0x8042c9cb
  127. MUIM_Set = 0x8042549a
  128. MUIA_Numeric_Value = 0x8042ae3a
  129. MUIV_TriggerValue = 0x49893131
  130. MUIV_EveryTime = 0x49893131
  131. MUIA_String_AdvanceOnCR = 0x804226de
  132. MUIA_Selected = 0x8042654b
  133. MUIA_Application_Title = 0x804281b8
  134. MUIA_Text_Contents = 0x8042f8dc
  135. MUIA_String_Accept = 0x8042e3e1
  136. MUIA_String_Reject = 0x8042179c
  137. MUIA_String_Contents = 0x80428ffd
  138. MUIA_Window_Height = 0x80425846
  139. MUIA_Window_Width = 0x8042dcae
  140. MUIA_Window_Menu = 0x8042db94
  141. MUIA_Menuitem_Title = 0x804218be
  142. MUIA_Window_TopEdge = 0x80427c66
  143. MUIA_Window_Open = 0x80428aa0
  144. MUIA_Window_CloseGadget = 0x8042a110
  145. MUIA_Window_DragBar = 0x8042045d
  146. MUIA_Window_DepthGadget = 0x80421923
  147. MUIA_Window_Activate = 0x80428d2f
  148. MUIA_Window_Title = 0x8042ad3d
  149. MUIA_Application_Active = 0x804260ab
  150. MUIA_Application_Author = 0x80424842
  151. MUIA_Application_Copyright = 0x8042ef4d
  152. MUIA_Application_Description = 0x80421fc6
  153. MUIA_Application_Version = 0x8042b33f
  154. MUIA_Window_ScreenTitle = 0x804234b0
  155. MUIM_Application_AboutMUI = 0x8042d21d
  156. MUIM_Application_OpenConfigWindow = 0x804299ba
  157. MUIA_Menuitem_Shortcut = 0x80422030
  158. MUIA_Group_Rows = 0x8042b68f
  159. MUIA_Group_Columns = 0x8042f416
  160. TRUE = 1
  161. FALSE = 0
  162. MUIA_Application_DoubleStart =         0x80423bc6
  163.  
  164. MUIA_Menuitem_Enabled =                0x8042ae0f
  165.  
  166. conectado = 0
  167. tiempo = 0
  168.  
  169. /*   SUB Programa  MUIREXX   */
  170.  
  171. CALL OPEN('wmr','ram:timogui.rexx','W')
  172.  
  173.  
  174. CALL WRITELN('wmr','/*')
  175. CALL WRITELN('wmr','$VER: TIMOcount V 1.41 - © Freddy/SOGA :  (28-Oct-1998 08:00)')
  176. CALL WRITELN('wmr','*/')
  177. CALL WRITELN('wmr',' ')
  178. CALL WRITELN('wmr','OPTIONS FAILAT 99')
  179. CALL WRITELN('wmr','OPTIONS CACHE')
  180. CALL WRITELN('wmr','OPTIONS RESULTS')
  181.  
  182. CALL WRITELN('wmr','Address ('d2c(39)'TIMOCOUNT'd2c(39)')')
  183. CALL WRITELN('wmr','MUIA_Menuitem_Enabled = 0x8042ae0f')
  184. CALL WRITELN('wmr','MUIA_Application_Title = 0x804281b8')
  185. CALL WRITELN('wmr','MUIA_Window_Height = 0x80425846')
  186. CALL WRITELN('wmr','MUIA_Window_Width = 0x8042dcae')
  187. CALL WRITELN('wmr','MUIA_Window_Menu = 0x8042db94')
  188. CALL WRITELN('wmr','MUIA_Menuitem_Title = 0x804218be')
  189. CALL WRITELN('wmr','MUIA_Window_TopEdge = 0x80427c66')
  190. CALL WRITELN('wmr','MUIA_Window_Open = 0x80428aa0')
  191. CALL WRITELN('wmr','MUIA_Window_CloseGadget = 0x8042a110')
  192. CALL WRITELN('wmr','MUIA_Window_DragBar = 0x8042045d')
  193. CALL WRITELN('wmr','MUIA_Window_DepthGadget = 0x80421923')
  194. CALL WRITELN('wmr','MUIA_Window_Activate = 0x80428d2f')
  195. CALL WRITELN('wmr','MUIA_Window_Title = 0x8042ad3d')
  196. CALL WRITELN('wmr','MUIA_Application_Active = 0x804260ab')
  197. CALL WRITELN('wmr','MUIA_Application_Author = 0x80424842')
  198. CALL WRITELN('wmr','MUIA_Application_Copyright = 0x8042ef4d')
  199. CALL WRITELN('wmr','MUIA_Application_Description = 0x80421fc6')
  200. CALL WRITELN('wmr','MUIA_Application_Version = 0x8042b33f')
  201. CALL WRITELN('wmr','MUIM_Application_AboutMUI = 0x8042d21d')
  202. CALL WRITELN('wmr','MUIM_Application_OpenConfigWindow = 0x804299ba')
  203. CALL WRITELN('wmr','MUIA_Menuitem_Shortcut = 0x80422030')
  204. CALL WRITELN('wmr','MUIA_Group_Rows = 0x8042b68f')
  205. CALL WRITELN('wmr','MUIA_Group_Columns = 0x8042f416')
  206. CALL WRITELN('wmr','TRUE = 1')
  207. CALL WRITELN('wmr','FALSE = 0')
  208. CALL WRITELN('wmr','MUIA_Application_DoubleStart = 0x80423bc6')
  209. CALL WRITELN('wmr','application ATTRS MUIA_Application_DoubleStart 0')
  210. CALL WRITELN('wmr','application ATTRS MUIA_Application_Active 1')
  211. CALL WRITELN('wmr','application ATTRS MUIA_Application_Title """TIMOcount V1.41 - By Freddy-SOGA"""')
  212. CALL WRITELN('wmr','window ID TIMOW COMMAND """QUIT""" PORT TIMOPORT TITLE """TIMOcount V1.41 By Freddy-SOGA""" ATTRS MUIA_Window_Open MUIA_Window_Height """180""" MUIA_Window_Width """250""" MUIA_Window_TopEdge """100""" MUIA_Window_Title """TIMOcount V1.41 By Freddy-SOGA"""')
  213. CALL WRITELN('wmr','  menu LABEL "Proyecto"')
  214. CALL WRITELN('wmr','   item COMMAND """TIEMPOR""" PORT TIMOPORT ATTRS MUIA_Menuitem_Shortcut 'O' LABEL "Conmutar Conexión"')
  215. CALL WRITELN('wmr','   item ATTRS MUIA_Menuitem_Title 'd2c(39)'-1'd2c(39))
  216. CALL WRITELN('wmr','   item COMMAND '"hide"' PORT TIMOCOUNT ATTRS MUIA_Menuitem_Shortcut 'H' LABEL "Ocultar"')
  217. CALL WRITELN('wmr','   item COMMAND """ABOT""" PORT TIMOPORT ATTRS MUIA_Menuitem_Shortcut '?' LABEL "About"')
  218. CALL WRITELN('wmr','   item COMMAND 'd2c(39)'"method 'd2c(39)'MUIM_Application_AboutMUI'd2c(39)' 0"'d2c(39)' PORT TIMOCOUNT LABEL "Sobre el MUI"')
  219. CALL WRITELN('wmr','   item ATTRS MUIA_Menuitem_Title 'd2c(39)'-1'd2c(39))
  220. CALL WRITELN('wmr','   item COMMAND 'd2c(39)'"QUIT"'d2c(39)' PORT TIMOPORT ATTRS MUIA_Menuitem_Shortcut 'd2c(39)'Q'd2c(39)' LABEL "Quitar"')
  221. CALL WRITELN('wmr','  endmenu')
  222. CALL WRITELN('wmr','  menu LABEL "Configurar"')
  223. CALL WRITELN('wmr','   item ID MCONF COMMAND 'd2c(39)'"CONFIG"'d2c(39)' PORT TIMOPORT ATTRS MUIA_Menuitem_Shortcut 'd2c(39)'C'd2c(39)' MUIA_Menuitem_Enabled 1 LABEL "Opciones"')
  224. CALL WRITELN('wmr','   item ATTRS MUIA_Menuitem_Title 'd2c(39)'-1'd2c(39))
  225. CALL WRITELN('wmr','   item ID CCONF COMMAND 'd2c(39)'"CARCON"'d2c(39)' PORT TIMOPORT ATTRS MUIA_Menuitem_Shortcut 'd2c(39)'L'd2c(39)' LABEL "Carga una Configuración"')
  226. CALL WRITELN('wmr','   item COMMAND 'd2c(39)'"GRACON"'d2c(39)' PORT TIMOPORT ATTRS MUIA_Menuitem_Shortcut 'd2c(39)'S'd2c(39)' LABEL "Salva la Configuración"')
  227. CALL WRITELN('wmr','   item COMMAND 'd2c(39)'"GRACOM"'d2c(39)' PORT TIMOPORT ATTRS MUIA_Menuitem_Shortcut 'd2c(39)'A'd2c(39)' LABEL "Salva Config como..."')
  228. CALL WRITELN('wmr','   item ATTRS MUIA_Menuitem_Title 'd2c(39)'-1'd2c(39))
  229. CALL WRITELN('wmr','   item COMMAND 'd2c(39)'"method 'd2c(39)'MUIM_Application_OpenConfigWindow'd2c(39)'"'d2c(39)' PORT TIMOCOUNT ATTRS MUIA_Menuitem_Shortcut 'd2c(39)'P'd2c(39)' LABEL "MUI..."')
  230. CALL WRITELN('wmr','  endmenu')
  231.  
  232. CALL WRITELN('wmr','  group ID GTIMO NODE "USO" FRAME ATTRS MUIA_Group_Columns """3""" MUIA_Group_Rows """1""" LABEL "Panel TIMOcount"')
  233. CALL WRITELN('wmr','  text ID TCONT LABEL 'd2c(39)'\033c\033b\0337 OFFLINE 'd2c(39)'')
  234. CALL WRITELN('wmr','  space 25')
  235. CALL WRITELN('wmr','  button HELP """Botón para conectar